Top 10k strings from Video Basic - Issue 07 (1985)(Ingelek Jackson)(16k)(es).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Magazines / Sinclair ZX Spectrum - Magazines - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
6 si cond es
5 A$="PON EN MARCHA LA GRABADORA":
5 "4";"ESTA BIEN ESCRITO ? (S/N)";
5 "23606",z:
4 t$=" PULSA UNA TECLA PARA CONTINUAR "
4 U;" ";N$;" "
4 "9",N;" ~|";
4 "8",N;A$(N-2
4 "3";"ESCRIBE TU NOMBRE EN EL TECLADO Y PULSA <ENTER>":
4 "10",z;" PARA LA GRABADORA ":
4 "10",N;" \]"
4 PASO A LA PARTE";
4 B=5 THEN PRINT ""OK""":
3 t$(2)-48":
3 Z'" devuelve:"''"
3 CAR
3 CAR
3 ;" VERDAD ";:
3 ;" ":
3 ;" ":
3 "126-XL/2",
3 "10-a/2",U;
2 y$=" PULSA UNA TECLA PARA CONTINUAR ":
2 u;" - MEMORIA - "
2 t$(3)-48":
2 q$=" PULSA UNA TECLA PARA CONTINUAR "
2 p$="VIDEOHARDWARE: ":
2 p$="VIDEOBREAK: ":
2 p$="VIDEOBASIC-LA PROGRAMACION: ":
2 l$=" "
2 U;"PROGRAMA ";
2 U;"La operacion NUM
2 U;" V E R D A D !! ":
2 U;" F A L S O !! "
2 U'" IF A=3
2 T$=" ELIGE, "+N$+":":
2 T$=" ":
2 T$(U);T$(U+U
2 LETREROS ROTATORIOS
2 LETREROS ENTRANTES
2 LEE LOS UDG
2 HOMBRECILLO
2 ;"VIDEOBASIC":
2 ;"PON EN MARCHA LA GRABADORA":
2 ;" SIGUIENTE"
2 ;" ":
2 ;" ":
2 ;" ";
2 ;" ":
2 * *
2 * *
2 "LIBRE "(I);:
2 "8",U;"IF A=3
2 "6";" SIGUIENTE"
2 "28"-J/A,ER+J/A*.7
2 "23296"+N,
2 "2","CARACTER DE CODIGO ASCII 65"
2 "18",u;" @
2 "18",U;"IF A=3
2 "14",U+U;"VARIABLE "
2 "1","VOCAL"
2 "(21-YP)*8-2":
2 "'" ~|"'" \]";
2 VUELTA AL PRINCIPIO";
2 LET A=3 : LET B=4
2 B=5 THEN PRINT..."''':
2 PARA LA GRABADORA
2
1 yp=yp+(t$(i)="b")-(t$(i)="a"):
1 y(n)=y(n+1
1 xp=xp+(t$(i)="d")-(t$(i)="s"):
1 w$="SIEMPRE QUE ES NECESARIO EN-VIAR INFORMACIONES DE UN ORDE-NADOR A OTRO, O A UN PERIFERI-CO, EFECTUAMOS UNA TRANSMISIONDE DATOS"
1 w$="LAS PUERTAS LOGICAS SON DISPO-SITIVOS QUE REALIZAN UNA OPE-RACION SIMPLE.":
1 w$="ESTE TIPO DE TRANSMISION SELLAMA 'PARALELA', YA QUE ENVIALOS DATOS EN PARALELO RESPECTOAL BUS."
1 u;"EXACTO !":
1 u;"CLEAR":
1 u;" C$=CARACTER INTRODUCIDO "
1 t$="LOS OPERADORES LOGICOS: <AND>,<OR> Y <NOT>, SIRVEN PARA RE-LACIONAR DOS CONDICIONES, AFIN DE OBTENER UN RESULTADOLOGICO FACILMENTE UTILIZABLE.":
1 t$="COMO HABRAS PODIDO VER ELEFECTO DE <NEW> ES DESTRUCTI-VO.":
1 t$=" AND - OR - NOT":
1 t$(u+u)-48":
1 t$(u)="<":
1 t$(u)="1292"(B)
1 t$(4)-49":
1 t$(3)-49":
1 t$(3)-48)*4+2":
1 t$(3)-48",
1 t$(2)-48)*8+2":
1 t$(2)-48";
1 r$=r$+p$(x)
1 p;" ":
1 p;" ":
1 p$="los temas de la leccion ":
1 p$="VIDEOTEST: ":
1 p$="VIDEONEXT: ":
1 p$="VIDEONEXT":
1 p$="VIDEOLIST":
1 p$="VIDEOJUEGO: ":
1 p$="VIDEOJUEGO: ":
1 p$="VIDEOBASIC-EL LENGUAJE: ":
1 p$="VERIFY - MERGE ":
1 p$="Uso de Vectores y Matrices ":
1 p$="Uso avanzado de los ":
1 p$="Solitario ":
1 p$="STOP - CONTINUE - NEW ":
1 p$="Operadores Logicos ":
1 p$="La grabadora ":
1 p$="LA zona de comunicacion ":
1 p$="Juego de adivinanzas sobre ":
1 p$="Hogar, Dulce Hogar ":
1 p$="En el proximo numero... ":
1 p$="DIM - SAVE - LOAD ":
1 p$="Crucigrama ":
1 p$="Caleidoscopio ":
1 p$="CLEAR - AND - OR - NOT ":
1 p$=" LA TRANSMISION DE DATOS "
1 p$=" del SPECTRUM ":
1 n;" ":
1 n;" ":
1 copy=23760
1 cc-aa,dd-bb,ee:
1 b$=b$+(w$(j)
1 attr=23813
1 aa,bb,cc,dd,ee:
1 a;" ":
1 a$="VIDEOBASIC.":
1 a$="LA PROGRAMACION":
1 a$="Hasta pronto":
1 a$=" CONTINUE":
1 a$=" ":
1 YY,XX;" ";
1 Y=Y+(F$="6"
1 Y,N;A$(N-2
1 Y,N;" {|";
1 Y$="PULSA UNA TECLA PARA CONTINUAR ":
1 Y$=" PULSA UNA TECLA PARA CONTINUAR "
1 X=X+(F$="8"
1 X<21)+(30-X)*(X>20)"):
1 X;" ":
1 X,Y;T$(N):
1 W$="SI LA LINEA DE TRANMISION ESTACONSTITUIDA POR UN SOLO CABLE,SE LLAMA EN 'SERIE', PUESTOQUE CADA BIT ES ENVIADO A CON-TINUACION DEL ANTERIOR, EN SE-RIE.":
1 W$="PULSA: R REPETIR C CONTINUAR ":
1 W$="PULSA: '1' PARA HACER A=1 '0' PARA SALIR":
1 W$="PULSA: R PARA REPETIR C PARA CONTINUAR "
1 W$="PULSA '1' PARA HACER A=1 '2' PARA HACER B=1 '0' PARA SALIR"
1 W$="POSEEN UNA O VARIAS ENTRADAS(OPERANDOS) Y UNA SOLA SALIDA(RESULTADO), PUDIENDO LLEVAR ACABO LAS OPERACIONES SUMA,PRODUCTO Y NEGACION."
1 W$="LA PUERTA 'OR' LLEVA A CABO LAOPERACION SUMA LOGICA. TIENEPOR RESULTADO (R) <1> CUANDOAL MENOS UNA DE SUS ENTRADAS(A Y B) ES <1>."
1 W$="LA DIFERENCIA PRINCIPAL ENTREESTAS DOS TRANSMISIONES, RESI-DE EN EL NUMERO DE DATOS EN-VIADOS SIMULTANEAMENTE POR UNALINEA.":
1 W$="LA TRANSMISION EN SERIE SEADAPTA PERFECTAMENTE A LA CO-MUNICACION A TRAVES DE LA LI-NEA TELEFONICA.":
1 W$="ESTE ES EL SISTEMA DE TRANSMI-SION QUE SE UTILIZA PARA EN-VIAR INFORMACION AL TELEVISORO MONITOR.":
1 W$="ESTA VEZ HABLAREMOS DE UN TEMA... NETAMENTE ELECTRONICO: LASPUERTAS LOGICAS Y SU COMPORTA-MIENTO.":
1 W$="ESPERO QUE HAYA QUEDADO CLARALA IDEA.":
1 W$="EL TECLADO, CUANDO DEBE ENVIARLOS CODIGOS A LA C.P.U.,LO HA-CE A TRAVES DEL BUS DE DATOSDE 8 BITS, (EL BYTE COMPLETOQUE IDENTIFICA UN CARACTER)."
1 W$="EL TECLADO DEL SPECTRUM, POREJEMPLO, TRANSMITE A LA C.P.U.LOS CODIGOS DE LOS CARACTERESTECLEADOS.":
1 W$="EL SPECTRUM TRANSMITE TAMBIENLOS DATOS: AL TELEVISOR.":
1 W$="COMO VERAS MAS TARDE, EN LASECCION DE PROGRAMACION, ELBASIC DISPONE DE TRES FUNCIO-NES QUE EMULAN LAS PUERTAS LO-GICAS: <AND>, <OR> Y <NOT>.":
1 W$="'NOT' TIENE UNA SOLA ENTRADA.SU RESULTADO ES EL VALOROPUESTO DE ESTA ENTRADA (NEGA-CION LOGICA).":
1 W$="'AND' SE PUEDE COMPARAR CON UNPASO A NIVEL DE DOS BARRERAS;HASTA QUE NO SE LEVANTAN AM-BAS, NO PUEDE PASAR NUESTROCOCHE.":
1 W$="'AND' DA COMO RESULTADO (R)<1>, SOLO SI SUS DOS ENTRADAS(A Y B) SON <1> (PRODUCTO LO-GICO)."
1 W$=" PARA LA GRABADORA":
1 W$=" PARA LA GRABADORA ":
1 Via Indipendenza, 88
1 Via Indipendenza 88
1 VISUALIZACION BLOQUE
1 VIDEOTEST
1 VIDEOLIST
1 VIDEOBASIC N.7
1 VB 07
1 U;"OTRA VEZ..":
1 U;"OTRA VEZ !":
1 U;"La operacion CAD.
1 U;"ESTA ES LA INSTRUCCION EXACTA:":
1 U;"ERROR !":
1 U;"BIEN,"+N$,,"AHORA PULSA <RUN>, Y VERAS FUN-CIONAR TU PROGRAMA.",:
1 U;" IF A=2
1 U;" ":
1 U;" "
1 U,Z;"CLEAR
1 U+U,XP;A$;
1 U'" LET B =
1 U'" IF A=3 AND (C=5 OR (D=7 AND E=B)) THEN.."
1 U'" 10 PRINT A=5"''':
1 TOT<0) +(""HABER ""
1 TIPO DE TRANSMISION QUE EMITEUN BYTE CADA VEZ PARALELA
1 TIPO DE TRANSMISION EN QUE SEEMITE UN BIT CADA VEZ SERIE
1 TEST 07
1 TABLA CONTy
1 T$=Q$(Y,X+T)
1 T$=Q$(Y+T,X)
1 T$="TE PROPONGO UN NUEVO TEST:UTILIZA EL TECLADO COMO HASIDO APRENDIENDO EN LECCIONESANTERIORES, Y ESCRIBE LOS CO-MANDOS QUE TE VAYA PIDIENDO.":
1 T$="SI, POR EJEMPLO, QUEREMOSEFECTUAR UN PRINT, SIEMPRE YCUANDO LA VARIABLE <A> VALGA<3> Y LA VARIABLE <B> VALGA<5>, PODEMOS ESCRIBIR.":
1 T$="PRUEBA A INTRODUCIR <CLEAR> YVERAS LO QUE OCURRE!...":
1 T$="POR TANTO, ES POSIBLE SUSTITU-IR LA CONDICION EVALUADA EN UN<IF> POR UNA VARIABLE O UNAEXPRESION. LA INSTRUCCION SEEJECUTARA UNICAMENTE SI ELRESULTADO FINAL ES <1>, O MASCONCRETAMENTE,DISTINTO DE <0>.":
1 T$="OTRA CARACTERISTICA DE LOSOPERADORES LOGICOS ES LA POSI-BILIDAD DE RELACIONAR DIRECTA-MENTE EXPRESIONES NUMERICAS ODE CADENA.":
1 T$="LA FUNCION <NOT> SE UTILIZAPARA INVERTIR (NEGAR) UNA CON-DICION: SI ES VERDAD SE HACEFALSA, Y VICEVERSA. AUNQUESIEMPRE ES POSIBLE EVITAR ELUSO DE ESTE OPERADOR, SU APLI-CACION SIMPLIFICA NOTABLEMENTEEXPRESIONES MAS COMPLEJAS.":
1 T$="LA EXPRESION <10 AND A=5> VALE<10> SI <A ES IGUAL A 5> Y <0>SI <A ES DISTINTO DE 5>.":
1 T$="IMPRIMIRA <1> SI A=5 Y <0> SIA<>5.":
1 T$="IF NOT A=B THEN PRINT ""*""":
1 T$="IF A<>B THEN PRINT ""*""":
1 T$="HASTA EL PUNTO INDICADO SERESTRINGE EL EFECTO DE NEW;POR TANTO, ESTE COMANDO SESUELE UTILIZAR PARA PRESERVARPARTE DE LA MEMORIA CON DESTI-NO AL CODIGO MAQUINA, CARACTE-RES ALTERNATIVOS O DATOS ACONSERVAR.":
1 T$="ESTE COMANDO SE USA CASI EX-CLUSIVAMENTE PARA BORRAR LAMEMORIA CON VISTAS A LA CARGADE OTRO PROGRAMA.":
1 T$="ES TOTALMENTE EQUIVALENTE A:":
1 T$="EN ALGUNOS CASOS ES NECESARIALA COMBINACION DE VARIOS OPE-RADORES:":
1 T$="ELIGE, "+N$:
1 T$="EL COMANDO <NEW> SIRVE PARABORRAR LA ZONA DE MEMORIA DETU SPECTRUM QUE CONTIENE ELPROGRAMA Y LAS VARIABLES.":
1 T$="DE SER ASI, PRIMERO SE EVALUANLOS <AND> Y POSTERIORMENTE LOS<OR>.":
1 T$="DE LA MISMA MANERA, SI QUERE-MOS EJECUTAR PRINT CUANDO <A>VALGA <3> O <B> VALGA <5>, ES-CRIBIREMOS:":
1 T$="DE ESTO SE DEDUCE FACILMENTE,QUE <AND> SE CUMPLE CUANDO SONCIERTAS LAS DOS CONDICIONESRELACIONADAS, Y PARA <OR> ESSUFICIENTE QUE LO SEA SOLO UNADE ELLAS.":
1 T$="DADA LA BREVEDAD DE ESTE PRO-GRAMA, NO HA SIDO PREVISTA LAOPCION DE SALIDA.
1 T$="CREO QUE ES MEJOR QUE VUELVASA LEER CON CALMA EL PROGRAMA,Y LO INTENTES DE NUEVO.":
1 T$="CONVIENE OBSERVAR, QUE LASCOMPARACIONES DEVUELVEN EL RE-SULTADO <1> SI LA RELACION SECUMPLE, Y <0> SI NO ES ASI.ESTOS SON VALORES NUMERICOS ATODOS LOS EFECTOS, Y PUEDENSER UTILIZADOS COMO TALES.":
1 T$="AUNQUE ES POSIBLE ALTERAR ESTEORDEN DE PRIORIDADES, GRACIASA LOS PARENTESIS:":
1 T$="AHORA, "+N$+",":
1 T$="<CLEAR> SE PUEDE UTILIZAR CONUN ARGUMENTO NUMERICO; EN ESTECASO, ADEMAS DE LOS EFECTOSANTES MENCIONADOS, INDICA ELULTIMO BYTE DE MEMORIA DESTI-NADO AL <BASIC>.":
1 T$="<CLEAR> ES MENOS DRASTICO QUE<NEW>. UNICAMENTE BORRA LAS VARIABLESY LA PANTALLA, SIN AFECTAR ALPROGRAMA.":
1 T$="...TEN CUIDADO DE NO INTRODU-CIRLO POR EQUIVOCACION!!!":
1 T$="...SABIENDO QUE <AND> QUIEREDECIR <Y>, LA TRADUCCION DE LAINSTRUCCION ES INMEDIATA, Y SEHACE OBVIA CUALQUIER OTRA EX-PLICACION.":
1 T$="...AHORA INTRODUCE <NEW> Y VE-RAS QUE SUCEDE !!!":
1 T$=" ELIGE, {:":
1 T$=" ELIGE, `:":
1 STOP TABLA
1 STOP
1 SOLO SON VALIDOS LOS CARACTE-RES ENTRE LA <A> Y LA <Z>; LAENTRADA DE <0> PRODUCE EL RE-TORNO AL INICIO DEL JUEGO.",""
1 SCROLL=23828
1 RUTINA PARA MAQUINA DE ESCRIBIR
1 RUTINA MAQUINA DE ESCRIBIR
1 RESULTADO DE LA EXPRESION (NOT 7)OR(NOT 3) 0
1 RESULTADO DE LA EXPRESION (NOT 5)=(NOT 3) 1
1 RESTITUYE 1 SI AL MENOS UNA DELAS ENTRADAS VALE 1 OR
1 PORTADA
1 PETICION DEL NOMBRE
1 PERO TE PREGUNTARE CADA VEZ SIQUIERES INTENTARLO DE NUEVO.":
1 P$="VIDEOBASIC-EL LENGUAJE: ":
1 P$=" PARA LA GRABADORA "
1 P$=" en el numero 8 ":
1 ORIZONTAL "
1 OPERADOR LOGICO DE MAYOR PRIO-RIDAD NOT
1 OBSERVA QUE EN LA INTRODUCCIONUSAREMOS <PAUSE 0/ INKEY$>,CON EL OBJETO DE OBTENER UNSOLO CARACTER POR CADA VEZ.",""
1 O,i;A$(i-2
1 N$=N$+" ":
1 M-15339-1985
1 L$=" "
1 INTERRUMPE LA EJECUCION DELPROGRAMA STOP
1 INTERFACE ESTANDAR SERIE RS232
1 INGELEK JAKSON
1 HAS ESCRITO UN PROGRAMA UTILI-ZANDO UNA TECNICA FUNDAMENTALEN LA ELABORACION DE DATOS: LADEPURACION DE LOS DATOS INTRO-DUCIDOS."
1 HARD UNO
1 HARD DOS
1 FUNCION QUE CALCULA LA NEGA-CION DEL ARGUMENTO NOT
1 FUNCION LOGICA QUE EFECTUA ELPRODUCTO DE SUS ARGUMENTOS AND
1 ESTA INSTRUCCION SE UTILIZAPARA DETENER UN PROGRAMA. NOOBSTANTE, ES COMPLETAMENTE DI-FERENTE DE <PAUSE>.% %LA DIFERENCIA CONSISTE EN LOSIGUIENTE: <PAUSE> DETIENETEMPORALMENTE EL PROGRAMA;<STOP> LO INTERRUMPE, DEVOL-VIENDO EL CONTROL AL SISTEMAOPERATIVO.% ESTA CARACTERISTICA ES EXTRE-MADAMENTE INTERESANTE, PARA LACOMPROBACION Y CORRECCION DEPROGRAMAS COMPLEJOS. GRACIAS A<STOP>, SE TIENE LA POSIBILI-DAD DE INTERRUMPIR EL PROGRAMAEN SU PUNTO MAS CRITICO, PARAASI PODER OBTENER POR MEDIO DE<PRINT> (EN MODO DIRECTO), LOSVALORES DE LAS VARIABLES DE-SEADAS, ALTERARLOS SI FUERANECESARIO, Y PROSEGUIR DESDEESE PUNTO ( O DESDE OTRO CUAL-QUIERA) LA EJECUCION.% %TAMBIEN ES POSIBLE UTILIZAR<STOP> COMO COMANDO DIRECTO,EN RESPUESTA A UN <INPUT>. SO-LO HAY QUE ADVERTIR QUE EN ELCASO DE ENTRADAS DE CADENA, ESNECESARIO ELIMINAR AL MENOSUNA DE LAS COMILLAS QUE LASCARACTERIZA, PARA QUE <STOP>SEA CONSIDERADO COMO UN COMAN-DO, Y NO COMO UN CARACTER. TE
1 ERTICAL
1 EL COMANDO <CONTINUE> SE UTI-LIZA UNICAMENTE EN EL MODO DI-RECTO, Y SIRVE PARA CONTINUARLA EJECUCION DE UN PROGRAMAPREVIAMENTE INTERRUMPIDO.% %LAS CAUSAS DE DICHA INTERRUP-CION PUEDEN SER MUCHAS:& &* <STOP> EN SUS DIVERSAS FOR-MAS; * PULSACION DE <BREAK> (CAPSSHIFT + SPACE); * UN ERROR EN EL PROGRAMA, OUN FUNCIONAMIENTO ERRONEO DEALGUN PERIFERICO.& &EN TODOS ESTOS CASOS LA DETEN-CION SE MANIFIESTA CON UN MEN-SAJE EN LA PARTE BAJA DE LAPANTALLA, Y LA DEVOLUCION DELCONTROL AL SISTEMA OPERATIVO.%CON EL COMANDO <CONTINUE> ESPOSIBLE CONTINUAR EL PROGRAMA,A PARTIR DE LA SIGUIENTE INS-TRUCCION, SITUADA INMEDIATA-MENTE DESPUES DEL PUNTO DE IN-TERRUPCION. OBVIAMENTE, LA CONTINUACIONDEL PROGRAMA, CUANDO FUE DETE-NIDO POR UN ERROR, SERA SOLOUTIL SI ESTE HA SIDO SUBSA-NADO.% %RECUERDA ADEMAS, QUE CADA VEZQUE SE EFECTUA UNA DETENCION,EL PUNTO DE PARTIDA DE LA RE-EJECUCION CAMBIA.# #
1 DISPOSITIVO QUE ESTA TRANSMI-TIENDO DATOS EN PARALELO TECLADO
1 DISPOSITIVO QUE RECIBE AHORAMISMO DATOS EN SERIE TELEVISOR
1 CONTINUE
1 CONTINUA EL PROGRAMA DESPUESDE UN STOP CONTINUE
1 COMANDO QUE BORRA EL PROGRAMAY LAS VARIABLES NEW
1 COMANDO BASIC QUE BORRA LASVARIABLES CLEAR
1 CAR STOP
1 CAR EJER
1 CAR CONT
1 CAR AND
1 CAR 2 x
1 CAR 1 x
1 C$;","04CEMPEZAR ","#81;","2C50
1 B$="------------"
1 AND OR j
1 AND EJER
1 AHORA INTENTA VOLVER A ESCRI-BIR EL PROGRAMA EN BASE ALDIAGRAMA DE FLUJO.
1 ACUERDATE DE NUMERAR LAS LI-NEAS DE 10 EN 10, A PARTIR DE10.",""
1 A$="VIDEOTEST ":
1 A$="PON EN MARCHA LA GRABADORA"
1 A$="CLEAR":
1 A$=" STOP":
1 A$=" NEW ":
1 A$=" AND - OR - NOT":
1 ;n$;" ? (s/n)"
1 ;Q$(Y,X+T)
1 ;Q$(Y+T,X)
1 ;"y quita la alimentacion a tu";
1 ;"ejemplos y ejercicios";
1 ;"Y PULSA <ENTER>":
1 ;"TU PUNTUACION ES ";s;" SOBRE 30."
1 ;"TE HAS EQUIVOCADO ! PON ATENCION"
1 ;"SPECTRUM. Hasta pronto,";
1 ;"RESPUESTA: ";
1 ;"PREGUNTA N. ";w
1 ;"PARA MEJORAR, VUELVE A LEER";
1 ;"NO TE PUEDO AYUDAR":
1 ;"Muy bien, Enhorabuena!"
1 ;"MUY BIEN ";n$;
1 ;"La respuesta correcta es:";
1 ;"LA RESPUESTA ES MUY CORTA";
1 ;"INTENTALO DE NUEVO"
1 ;"HE AQUI UNA SUGERENCIA:"
1 ;"Guarda el casete en su caja";
1 ;"ESCRIBE TU NOMBRE";
1 ;"ES EXACTO."
1 ;"EN EL TECLADO";
1 ;"A B R";
1 ;"A B R ";
1 ;"1 1 1":
1 ;"1 1 1 ":
1 ;"1 0 1 ";
1 ;"1 0 0";
1 ;"0 1 1 ";
1 ;"0 1 0";
1 ;"0 0 0";
1 ;"0 0 0 ";
1 ;"""";i$;""" esta equivocado."
1 ;" PULSA UNA TECLA PARA CONTINUAR ":
1 ;" PULSA UNA TECLA PARA CONTINUAR "
1 ;" HAS HECHO ";P;" PUNTOS."
1 ;" FALSO ";:
1 ;" Esta bien escrito ";
1 ;" PON EN MARCHA LA GRABADORA "
1 ;" PULSA:
1 ;" PARA LA GRABADORA ":
1 ;" estoy cargando "''" VIDEOHARDWARE ":
1 ;" ";
1 ;" "
1 ;" ":
1 88888888888888888:::::::::::::::888::::::::::::::::::::88:;:::::888::::::::::::::::::::88999::::88:::::::::::::::::::::88999::::88::::::::::::::::::::::88::::::8::::::::::::::::::::::::8888888888888888888888888888888888888888:9999999999999999999999988888888888ss000000000000000psss8888888::88ss0pppppppphh0000psss8888888<<<8ss0((((((((hh0000psss<<<<<<<!!!8ss0((((((((hh0000psss$$$$$$$!!!8ss0((((((((hh0000psss$$$$$$$!!!8ss0((((((((hh00888sss$$$$$$$!!!8sssssssssssssssss8sss$$$$$$$!!!!!ssssssssssssssssssss!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!$!!!!!!!!!!!!&!!!!!"!!!!!!!!!!!!!$$$$$$$$$$$$$$$$$$!!!!!!!!!!!!!!$$$$$$$$$$$$$$$$$$!!&!!!!!!!!!!!$$$$$$$$$$$$$$$$$$!!!!!!&!!!!!!! }
1 88888881<8888888888888111<88888888
1 888881<8999999999999111<88
1 888881<8888888888888111<888888
1 88881<8888888888888111<8888888888
1 8881<8;;;;;;;;;;;;111<88888
1 8881<8888888888888111<8888
1 881<8<<<<<<<<<<88111<88888
1 881<8::::::::::::111<
1 881<8888888888888111111111111111111<8888888888888111<<<<<<<<<<<<<<1<8888888888888111<11111111111111<8888888888888111<11111111111111<8888888888888111<11111111111111<8888888888888111<11111111q11111<88888888888881111111111111111111111111111111111
1 81<8888888888888111<888
1 81<8888888888888111<
1 7 BREAK <
1 5TRADUCCION
1 43 - FASE DE OUTPUT","CUAL ES EL RESULTADO FINAL ?",""
1 4 O U T P U T"
1 23688/2-U"
1 22 - FASE DE CALCULO"," QUE DEBEMOS VERIFICAR?",""
1 2 ELABORACION"
1 1<8888888888888111<8
1 1<8888888888888111<
1 111111111111111111111111111111111<<<<<<<<<<<<<<1<<<<<<<<<<<<<<111<
1 11 - FASE DE INPUT","CUALES SON LOS ELEMENTOS QUEAPARECEN EN NUESTRO PROGRAMA ?",""
1 10 AND A=5
1 1 I N P U T "
1 07 VNEXT =
1 07 VJUEGO $
1 07 VBREAK
1 07 PROGRAM
1 00000000000000000000000000000000000000000000000000000000000000000000000000111111111111102110000000000000021111111111111221100000000000000222222222222222211000000000000002222222222222222110000000000000000000000000000000000000666666666660000000006600000000006666666666666666666666666666666666666666666666666666666666666666:????????????????????????????????????????????????????????????????::::???????????????????????????????????????????????????????????::::????????????????????????????88??????????????????????????????88?????????????????????:?????88?88???????????88?????::::?????88?88???????88????????89:::?????88?8888888888888888889999999???????888888888888888888999999:88888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888883
1 ...................................
1 -J/A,ER+J/A*.7
1 ,XX;" ";
1 ,XX;" "
1 ,O;"PARTE SIGUIENTE.";
1 ,,,,,,,,,,,,,,,,,,,,;
1 ,"RATAS",10
1 ,"OSIRIS",10
1 ,"OREJA",7
1 ,"OCELOS",8
1 ,"NASA",13
1 ,"MOLER",4
1 ,"LOBOS",9
1 ,"LAICAS",3
1 ,"DONALOS",6
1 ,"CESTEROS"
1 ,"CASADA",4
1 ,"CALCULADOR",2
1 ,"BOJE",10
1 ,"AVIAS",5
1 ,"AROSA",13
1 ,"ADAJA",12
1 ,"ACEBO",11
1 +"...EL CONTRARIO ES TOT
1 **AYUDA II INTENTO**
1 ***respuestas flash***
1 ***puntuacion***
1 ***premi tasto***
1 ***comentario final***
1 ***bloque principal***
1 ***INPUT controlado***
1 ***CLS ABAJO***
1 ));q$(q,65
1 '''"ESTA EXPRESION";
1 ''"Ejemplo:"''''"10 LET
1 #Z;"0 OK, 0:1":
1 "xg+xs/2",yg+ys*
1 "TE ACONSEJO QUE LEAS CON CUI-DADO LAS INDICACIONES REFEREN-TES A LA INSTRUCCION <PRINT>.
1 "RESPUESTA = ";
1 "PRINT BRIGHT A>9;TOT","ESTE ES UN COMODO SISTEMA PARAINTRODUCIR AUTOMATICAMENTE LOSATRIBUTOS DE <PRINT>.",""
1 "PRINT (T$ AND A<0)","SI A<0 SE IMPRIME LA CADENA<T$>; DE LO CONTRARIO NO SEIMPRIMIRA.",""
1 "PONGAMOS AHORA EN PRACTICA LOSCONCEPTOS EXPLICADOS CON ANTE-RIORIDAD, TENIENDO EN CUENTACOMO SE UTILIZAN LOS OPERADO-RES LOGICOS.",""
1 "LET ERR = DATO<0","LAS COMPARACIONES DEVUELVENSIEMPRE COMO RESULTADO <1> O<0>. POR TANTO, PUEDEN SERUTILIZADAS COMO EXPRESIONES.",""
1 "IF X<0 OR Y>X THEN...","SI <X> TOMA UN VALOR INFERIORA <0>, O <Y> TIENE UN VALORSUPERIOR A <X>, ENTONCES...",""
1 "IF NOT ERROR THEN PRINT ""OK""","<NOT> ES MUY USADO PARA INVER-TIR EL RESULTADO DE LA CONDI-CION: SI <ERROR> NO SE CUMPLE,ENTONCES IMPRIMIRA <OK>.",""
1 "IF INP<0 OR INP>9 THEN...","HE AQUI, UNA INSTRUCCION MUYUTILIZADA PARA VERIFICAR SI UNVALOR ESTA COMPRENDIDO EN UNDETERMINADO INTERVALO (EN ESTECASO ENTRE <0> Y <9>).",""
1 "IF ERR THEN GOTO FIN","ANALOGAMENTE, UNA VARIABLEPUEDE SER UTILIZADA PARA RE-PRESENTAR UNA CONDICION: SIERR NO ES <0> (CONDICION CUM-PLIDA) SE EJECUTA EL <GOTO>.ENCASO CONTRARIO, SE CONTINUA ENLA INSTRUCCION SIGUIENTE.",""
1 "IF A=3 AND(B=5 OR C=9) THEN..","...UTILIZANDO LOS PARENTESISPODEMOS ALTERAR LAS PRIORIDA-DES HABITUALES DE UNA CONDI-CION.",""
1 "IF A=3 AND B=7 THEN PRINT...","SI LA VARIABLE NUMERICA <A> ESIGUAL A <3>, Y <B> ES IGUAL A<7> SE EJECUTA <PRINT>.",""
1 "El unico elemento que aparece,es el caracter que introduci-mos en cada turno.",""
1 "El resultado final sera la im-presion de la palabra introdu-cida caracter a caracter.","",""
1 "ESTE SENCILLO JUEGO CONSISTEEN INTRODUCIR POR TURNO UN CA-RACTER PARA IR FORMANDO UNAPALABRA CON SENTIDO COMPLETO.PIERDE EL PRIMER JUGADOR QUENO PUEDE COLOCAR UNA LETRA.
1 "ESTA VEZ, "+N$,"UTILIZAREMOS EL OPERADOR LOGI-CO <OR>, PARA VERIFICAR LA VA-LIDEZ DE UN CARACTER INTRODU-CIDO POR EL TECLADO EN UNJUEGO.",""
1 "Deberemos comprobar si hay al-gun caracter fuera del limite<A>...<Z> y si queremos volvera empezar, pulsando <0>.",""
1 "BIEN, "+N$+"
1 "BIEN "+N$+"
1 "AHORA, "+N$,"TRANSFORMAREMOS EL ANALISIS,PRIMERO EN UN DIAGRAMA DE FLU-JO, Y SEGUIDAMENTE A INSTRUC-CIONES <BASIC>."
1 "9";"- - - - - -"''':
1 "8",z;"20 PRINT (""DEBE ""
1 "7";"INTENTALO DE NUEVO !":
1 "7";"ESTOY CARGANDO VIDEOTEST":
1 "6";"PULSA";
1 "6","6 LIBRE","6"
1 "510 LET A=5","520 PRINT A","530 LET B=A*8","540 PRINT B","550 LET X$=""BASIC"""
1 "5";" VERDAD ":
1 "4A5","4B40","4X$BASIC"
1 "4";"ESTA BIEN ESCRITO ? (S/N)"
1 "3";"TECLADO Y PULSA <ENTER>":
1 "3";"ESCRIBE TU NOMBRE EN EL";
1 "3";"ESCRIBE TU NOMBRE EN EL TECLADO Y PULSA <ENTER>"
1 "23617",U:
1 "23295+I",
1 "220"-J/A,ER+J/A*.7
1 "2";" FALSO":
1 "2";" FALSO ":
1 "2";" FALSO ":
1 "2","ZONA CON MUCHAS ROCAS"
1 "2","VOCAL"
1 "2","UNCOMMITED LOGIC ARRAY"
1 "2","UNA, JUNTE"
1 "2","TRANSPIRA"
1 "2","TONTA"
1 "2","SIMBOLO DEL NITROGENO"
1 "2","SIMBOLO DEL CADMIO"
1 "2","SIMBOLO DEL AZUFRE"
1 "2","RIO DE SIBERIA"
1 "2","QUEMENOS"
1 "2","OSCULO"
1 "2","OBSEQUIO, REGALO"
1 "2","METAL PRECIOSO"
1 "2","MEMBRANA EXTERNA DEL OIDO"
1 "2","LENGUAJE DE PROGRAMACION"
1 "2","INFUSION"
1 "2","HILO DEL QUE PENDE UN ANZUELO"
1 "2","HERMANO DE UN PROGENITOR"
1 "2","GOLFO DEL OCEANO INDICO"
1 "2","ESPUELA"
1 "2","EN PLURAL, DE IGUAL INCLINACION"
1 "2","DIGITO HEXADECIMAL CON VALOR 10"
1 "2","DECRETO DEL ZAR"
1 "2","CRIATURAS"
1 "2","CRANEO"
1 "2","CORCOVAS"
1 "2","CENTRO DE INSTRUCCION DE RECLUTAS"
1 "2","BALDAQUIN"
1 "2","ARTICULO DETERMINADO FEMENINO"
1 "2","APENDICES PARA VOLAR"
1 "2","APARATOS PARA ASAR"
1 "2","AL REVES, SE DESPLOMA"
1 "2","AL REVES, EL SIMBOLO DEL SODIO"
1 "2","2 RESERVADO","2","2"
1 "2 RESERVADO"
1 "19",Z;"Resultado:
1 "18",Z;" (INTRODUCE LOS CARACTERES)"''" <0> PARA COMENZAR";
1 "17";"VALE
1 "15",Z;"...Y ESTA ES NULA.";
1 "124-XL/2",
1 "10";"VIDEOBASIC":
1 "10";"ERROR !";
1 "1","UNIDA"
1 "1","TRITURAR"
1 "1","TIC ..."
1 "1","SIMBOLO DEL YODO"
1 "1","SIMBOLO DEL AZUFRE"
1 "1","RUTINAS DE CALCULO EN ROM"
1 "1","ROEDORES"
1 "1","RIO DE AVILA"
1 "1","RIA BAJA DE GALICIA"
1 "1","REGALALOS"
1 "1","PRONOMBRE REFLEXIVO"
1 "1","PRONOMBRE PERSONAL"
1 "1","PREPARAS"
1 "1","ONOMATOPEYA DEL GRITO DEL PATO"
1 "1","OJOS DE LOS INSECTOS"
1 "1","NOMBRE DE CONSONANTE"
1 "1","MEMBRANA EXTERNA DEL OIDO"
1 "1","MAMIFEROS CARNICEROS"
1 "1","LOS QUE HACEN CESTOS"
1 "1","LENGUAJE DE PROGRAMACION"
1 "1","LEGAS"
1 "1","JUNTA O CASA"
1 "1","INTERJECCION ANIMATIVA"
1 "1","INDIOS NOMADAS DE LA TIERRA DEL FUEGO"
1 "1","FLUIDO AERIFORME"
1 "1","DIOS EGIPCIO ESPOSO DE ISIS"
1 "1","CORTA CON LOS DIENTES"
1 "1","CONSONANTE"
1 "1","CANCION CANARIA"
1 "1","ARBUSTO"
1 "1","ARBOL AQUIFOLIACEO"
1 "1","AL REVES, DONA"
1 "1","AGENCIA ESPACIAL AMERICANA"
1 "04@IMPRIMIR","#81C","2@40
1 "043INTROD. ","044CARACT. ","#820","2310
1 "006RUN","019SI","048C$=""0"" ?","<81C","2820
1 ","SI X=Y O A$=B$","ENTONCES TERMINAMOS",""
1 ","SI LA VARIABLE <A>","ES IGUAL A <3>","Y <B> ES IGUAL A <5>","ENTONCES IMPRIME",""
1 ","SI LA CONDICION <OUT> ","NO SE CUMPLE","(CUANDO ES IGUAL A <0>)","ENTONCES IMPRIME",""
1 ","SI LA CONDICION <ER> SE","CUMPLE (ES DISTINTA DE <0>)","ENTONCES IMPRIME",""
1 ","04; FUERA ","04<LIMITE ?","<82;","0<:SI","2;30
1 "*1 ","% "
1 " - EL JUEGO DE LA - "," --- PALABRA --- "
1 VUELTA LA PRINCIPIO";
1 Tel. 031-240.959
1 Tel. 031-240.959
1 SOFTIDEA (Como)
1 SOFTIDEA (Como)
1 SOFTIDEA (Como)
1 REPETIR";
1 PULSA UNA TECLA
1 PARA TERMINAR "
1 PARA LA GRABADORA
1 LET A=3 : LET B=5
1 LET A=2 : LET B=8
1 INTRODUCCION";
1 EJERCICIOS";
1 EJERCICIO"
1 COMENZAR ***
1 CARGAR LA";
1 CARGAR EL VIDEOJUEGO";
1 C=7 THEN.."''':
1 AL BASIC ":
1 1982 Sinclair Research Ltd":
1 Tel. 031-240.959
1 SOFTIDEA (Como)
1 D A T A
1 CONTINUAR ":
1 Pon en marcha la grabadora
1 PON EN MARCHA LA GRABADORA
1 PARA LA GRABADORA
1 ":
1 *
1 "
1
1
1
1
1